%
O0002(MICRO ANT FILTER-1 PALLET) 
 
(STATIC AND CALCULATED VARIABLES)
(CUR.PT)#103=#102(S.PT)(CURRENT PART)
(OP1+)#104=1.75(OP 1 PART SPACING IN INCHES) 
(OP2+)#105=1.6369(OP 2 PART SPACING IN INCHES) 
 
(CALCULATE STARTING BLOCK) 
([S.OP * 1000] + R.TL) 
(S.BL)#108=[#107*1000]+#106
 
(54.1B)#109=7000(G54.1 BASE VARIABLE)
(54.1DP)#110=20(G54.1 VARIABLE CHANGE WITH P+) 
(CUR.OP)#112=#107(S.OP)
 
 
GOTO#108(S.BL)(GO TO STARTING BLOCK) 
(-------------------)
(TOOL 1) 
(OP 1) 
N1001
(CUR.OP)#112=1 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 1) 
(OP 2) 
N1002
(CUR.OP)#112=1 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
 
(TOOL 2) 
(OP 2) 
N2002
(CUR.OP)#112=2 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 3) 
(OP 2) 
N2003
(CUR.OP)#112=2 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 4) 
(OP 2) 
N2004
(CUR.OP)#112=2 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 5) 
(OP 2) 
N2005
(CUR.OP)#112=2 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 6) 
(OP 1) 
N1006
(CUR.OP)#112=1 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
 
(TOOL 6) 
(OP 2) 
N2006
(CUR.OP)#112=2 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 7) 
(OP 1) 
N1007
(CUR.OP)#112=1 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
 
(TOOL 7) 
(OP 2) 
N2007
(CUR.OP)#112=2 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 8) 
(OP 1) 
N1008
(CUR.OP)#112=1 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 9) 
(OP 2) 
N2009
(CUR.OP)#112=2 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 10)
(OP 1) 
N1010
(CUR.OP)#112=1 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 11)
(OP 1) 
N1011
(CUR.OP)#112=1 
M98P0006 
G0G90G54X-8. 
(CHECK TOOL) 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 12)
(OP 1) 
N1012
(CUR.OP)#112=1 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 13)
(OP 1) 
N1013
(CUR.OP)#112=1 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 14)
(OP 1) 
N1014
(CUR.OP)#112=1 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 15)
(OP 2) 
N2015
(CUR.OP)#112=2 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
 
 
 
(TOOL 16)
(OP 2) 
N2016
(CUR.OP)#112=2 
M98P0006 
 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
 
(TOOL 17)
(OP 3) 
N3017
(CUR.OP)#112=3 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
 
(TOOL 17)
(OP 4) 
N4017
(CUR.OP)#112=4 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 18)
(OP 3) 
N3018
(CUR.OP)#112=3 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
 
(TOOL 18)
(OP 4) 
N4018
(CUR.OP)#112=4 
M98P0006 
(CUR.PT)#103=1(RESET STARTING PART TO 1) 
(R.TL)#106=#106+1(SET R.TL TO NEXT)
 
(TOOL 19)
(OP 2) 
N2019
(CUR.OP)#112=2 
M98P0006 
 
 
M99
%